home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-3.dxr / 00033_Boton avance foto.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  1.2 KB  |  40 lines
  1. on mouseUp
  2.   global sSerie, nSerie, nOrden, nMaxSerie, lnDesFilm
  3.   if rollOver(23) then
  4.     puppetSprite(23, 0)
  5.     set the member of sprite 23 to member "avan apa" of castLib "elementos graficos"
  6.     updateStage()
  7.     if nOrden < nMaxSerie then
  8.       set nOrden to nOrden + 1
  9.       set sMiembro to nOrden & "p"
  10.       set the member of sprite 28 to member sMiembro of castLib sSerie
  11.       puppetTransition(member 3 of castLib "Transiciones")
  12.       updateStage()
  13.       if (nMaxSerie - 7) >= getAt(lnDesFilm, nSerie) then
  14.         setAt(lnDesFilm, nSerie, getAt(lnDesFilm, nSerie) + 1)
  15.         repeat with xx = 1 to 31
  16.           set the locH of sprite nSerie to the locH of sprite nSerie - 1
  17.           updateStage()
  18.         end repeat
  19.       else
  20.         repeat with xx = 1 to 31
  21.           set the locH of sprite 8 to the locH of sprite 8 + 1
  22.           updateStage()
  23.         end repeat
  24.       end if
  25.     end if
  26.   end if
  27. end
  28.  
  29. on mouseDown
  30.   repeat while the stillDown
  31.     puppetSprite(23, 1)
  32.     if rollOver(23) then
  33.       set the member of sprite 23 to member "avan ilu" of castLib "elementos graficos"
  34.     else
  35.       set the member of sprite 23 to member "avan apa" of castLib "elementos graficos"
  36.     end if
  37.     updateStage()
  38.   end repeat
  39. end
  40.